10 REM ***********************
20 REM *                     *
30 REM * CLS-DEMO 1 IN BASIC *
40 REM *                     *
50 REM ***********************
60 REM
70 REM FS = FARB-RAM-START
80 REM SP = BILDSCHIRM-GROESSE
90 REM FE = FARB-RAM-ENDE
100 :
105 GOSUB 310
110 FS=55296:SP=40*25:FE=FS+SP
120 FB=PEEK(53281)
130 : FOR Y=0 TO 12
140 :      FOR X=0 TO 40
150 :        POKE FS+X,FB
160 :        POKE FE-X,FB
170 :      NEXT X
180 :    FS=FS+40
190 :    FE=FE-40
200 : NEXT Y
210 END
300 :
310 :REM BILDSCHIRM FUELLEN
320 FOR I=0 TO 22
330 PRINT"CLEAR-SCREEN-BASCI-DEMO 1  64'ER 07/1992";
340 NEXT:RETURN